#include "rwmake.ch"
#INCLUDE "PROTHEUS.CH"
/*
+----------------------------------------------------------------------------+
!                             FICHA TECNICA DO PROGRAMA                      !
+----------------------------------------------------------------------------+
!   DADOS DO PROGRAMA                                                        !
+------------------+---------------------------------------------------------+
!Nome              ! A650CCF                                                !
+------------------+---------------------------------------------------------+
!Tabelas Utilizadas! 		                                                 !
+------------------+---------------------------------------------------------+
!Descricao         !Ponto de entrada para verificar se o produto sera fabricado ou comprado		!
!                  ! 										                     !
+------------------+---------------------------------------------------------+
!Autor             ! Guilherme - Dataroute                                   !
+------------------+---------------------------------------------------------+
!Data de Criacao   !27/03/14                                                 !
+------------------+---------------------------------------------------------+
!   ATUALIZACOES                                                             !
+-------------------------------------------+-----------+-----------+--------+
!   Descricao detalhada da atualizacao      !Nome do    ! Analista  !Data da !
!                                           !Solicitante! Respons.  !Atualiz.!
+-------------------------------------------+-----------+-----------+--------+
!                                           ! 			!           !        !
!                                           !           !           !        !
+-------------------------------------------+-----------+-----------+--------+
!                                           !           !           !        !
!                                           !           !           !        !
+-------------------------------------------+-----------+-----------+--------+
*/
User Function A650CCF()
	
	Local cCod		:= PARAMIXB[1]
	Local cNeces 	:= ""
	Local cTipoPro:= ""
	
	cTipoPro := POSICIONE("SB1",1,XFILIAL("SB1")+cCod,"B1_TIPO")  
	
	If (cNeces := POSICIONE("SB1",1,XFILIAL("SB1")+cCod,"B1_PRODSBP")) == "C"
		PARAMIXB[2] := "C"			
		conout("****************")
		conout("ALTEROU "+cCod)		
	EndIf
	
Return